home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / SOFT.ADS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  36 lines
  1. 10  REM  SOFT.ADS
  2. 20  TEXT : HOME : SPEED= 255
  3. 30  VTAB 3: HTAB 14: INVERSE : PRINT "          ": HTAB 14: PRINT " SOFT ADS ": HTAB 14: PRINT "          ": NORMAL 
  4. 40  PRINT : PRINT : HTAB 8: PRINT "1 = WHY SELL ADS?"
  5. 50  PRINT : PRINT : HTAB 8: PRINT "2 = SAMPLE SOFT ADS"
  6. 70  PRINT : PRINT : HTAB 8: PRINT "3 = HOW TO SUBMIT A SOFT AD"
  7. 80  PRINT : PRINT : HTAB 8: PRINT "4 = BACK TO MAIN MENU"
  8. 90  PRINT : PRINT " WHICH ";: GET R$: PRINT R$
  9. 100  IF R$ = "1" GOTO 1000
  10. 110  IF R$ = "2" GOTO 2000
  11. 120  IF R$ = "3" GOTO 3000
  12. 140  IF R$ = "4"  THEN  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  13. 150  GOTO 20
  14. 1000  HOME : VTAB 2
  15. 1010  PRINT "             WHY SELL ADS?"
  16. 1020  PRINT : PRINT "   SO SOFTDISK CAN EXPAND TO TWO DISKS"
  17. 1030  PRINT : PRINT "WITHOUT A PRICE INCREASE."
  18. 1040  PRINT : PRINT "   STARTING APRIL 83 YOU WILL RECEIVE"
  19. 1050  PRINT : PRINT "TWO DISKETTES EACH MONTH AND RETURN"
  20. 1060  PRINT : PRINT "ONLY ONE."
  21. 1070  PRINT : PRINT "   THE SECOND DISK WILL BE USED FOR"
  22. 1080  PRINT : PRINT "SOFT PALS AND SOFT ADS."
  23. 1999  GOTO 9999
  24. 2000  PRINT  CHR$(4)"RUN AD.MENU"
  25. 3000  HOME : VTAB 2
  26. 3005  HTAB 10: PRINT "HOW TO SUBMIT AN AD"
  27. 3010  PRINT : PRINT "   FOR A LIMITED TIME SOFTDISK WILL"
  28. 3020  PRINT : PRINT "SELL AD SPACE AT THE INTRODUCTORY RATE"
  29. 3030  PRINT : PRINT "OF $3 PER SECTOR."
  30. 3040  PRINT : PRINT : PRINT "   CURRENT CIRCULATION IS ABOVE 1000."
  31. 3050  PRINT : PRINT : PRINT "   AN AD SHOULD BE IN THE FORM OF AN"
  32. 3060  PRINT : PRINT "EXECUTABLE PROGRAM ON A DISKETTE AND"
  33. 3070  PRINT : PRINT "EXIT BACK TO PROGRAM NAMED ";: INVERSE : PRINT "AD.MENU";: NORMAL : PRINT "."
  34. 3999  GOTO 9999
  35. 9000  VTAB 23: HTAB 14: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN 
  36. 9999  GOSUB 9000: GOTO 20